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MODULE SORSSPEC_UTIL 
~ {DEN NT = ‘V04=-000' ! File: SORSPCUTI.B32 Edit: PDG3024 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
& 
® 
. ® 
'® THIS SOFT yi: IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corre ® 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
S_THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. * 
: ® 
'® THE gt te ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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'® CORPORATION. ® 
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i ABSTRACT: 
This module contains support routines for specification file features. 
i ENVIRONMENT: VAX/VMS user mode 
i AUTHOR: Peter D Gilbert, CREATION DATE: 25-Aug-1982 
i MODIFIED BY: 
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i FACILITY: VAX=11 SORT/MERGE 
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; @& 0059 1! Require files 

oe 060 1! 

; @ 061 1 ZIF TBLISS(B peat) XTHEN 

3 o7 ? ; : Beguine "SRC ! Common definitions for VAX=-11 SORT/MERGE 
3 o2 } ? ! LIBRARY reachcanrere*s ! Define symbols for spec file processing 
p. § b+ ee Linkage declarations 

s 68 01 $ 1! 

; oF 01 1 LITERAL 

ci 0138 #1 PT_REG = %BL1SS16(4) ¥OL ISS 38 (33. 

oe 4 9 1 ST_LREG = %BL1SS16(3) %BL1SS32(3), : 

; pia : XX_LREG = 2; ! Parameter register 

3 74 nies 1! Routine declarations 

; 75 0143 1! 

: 76 0144 1 FORWARD ROUTINE 

eee 0145 1 SORSSTDT: CA_LINKAGE, ! Evaluate a test 

3 78 0146 1 SORSS$RDT: CA_LINKAGE, ! Determine record type 
; 4 ae 4 } SORSSREF ORM: CA_LINKAGE; ! Reformat a record 

$ 81 0149 1! Macro declarations 

oe 0150 1! 

s 683 L 0151 1 ZIF NOT XDECLARED(XQUOTE BASE_) 

;s U 8126 1 XTHEN 

oe U 0153 1 MACRO 

: 86 uU 0154 1 BASE_ = 0, 0, 0, 0 %; 

ie 0155 1 XFI 
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On 19be 93:70:86 SORT 2. SRCISORSPCUTI .B 231 
GLOBAL as SORSSTDT 


INPREC: REF VECTORE #4 ! Length/address of input record 
TDTPTR: T 


REF TDOT_TAB ! Test definitions 
X1F XBLISS(BLISSI ) 
COMP: REF VECTORC,BYTE), ! Addr of routine to do simple compares 
FDT: REF FDT_TABE ‘ i Field definition table 
“FI CFT REF CFT_TAB ! Constant definition table 
): CA_LINKAGE = 


; FUNCTIONAL DESCRIPTION: 
This routine evaluates a test. 
FORMAL PARAMETERS: 
As described above. 


Note that COMP, FDT, and CFT could be bound to the locations 
in the context area thet hold the addresses. 


; 
; 

; 

; 

i 

; 

; 

i 

{ IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 

! 

; 

; 

. 


0 indicates test failed 
1 indicates test passed 


SIDE EFFECTS: 
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NONE 
BEGIN 
LOCAL ign 
TDT: REF TDOT_TABL], ! Local pointer to test descriptions 
, RES; ! Running total/result 
9 CA_AREA_(CA); 
0 BEGIN 
0 ZIF ZBLISS(BLISS32) 
0 ZTHEN 
0 BIND 
0 FDOT = CACCA_FDT_ADR]: REF 4S EE ! Field definition table 
1 CFT = CACCA CFT_ADRJ: REF CFT_TABCI; ! Constant definition table 
1 wee ROUTIN 
1 SORSSCOMPARE: | CA_LINKAGE; 
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v04- 13288-1382 90:30:96 SORT32.SRC Soasbcurl B251 ” (3) 
BIND 
COMP = SORSSCOMPARE: VECTORC,BYTE]; ! Addr of comparison routine 


tFI 


! The +4 definition table consists of simple comparisons, and a flag 
' indicating whether the result of this comparison should be ANDed or 
! ORed with the running total/result. Another flag indicates whether 
' this is the Last simple comparison (there is always at least one). 


i CONTINUE (CMP1 XXX 


' 

' 

' 

i] 

' 

: 

For example, the following: 
' 

! CONTINUE ad org 
CMPS OP 
' 

! 


i corresponds to the condition: ((CMP1 OP2 CMP2) OP3 CMP3) 


Get the address of the first test entry 
TDT = TDTPTRCO, BASE_); 
WHILE 1 DO 

BEGIN 


! Index into FDOT (or CFT) table 
TYPE, ! Data type of the operands 
FLD1: vecronted. ' Length/address of first operand 
FLD2: VECTOR(2); ! Length/address of first operand 


IF .TDTCO,TOT_TRUE] THEN RETURN 1; 
4 


i Find the datatypes, lengths, and addresses of the fields/data 
to be compared. 
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The first field is always a field (not a constant) 
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FDT_IX = .TDTCO,TDT_FLD_ONE); 
TYPE = .FDTC.FDT_IX> FDT_TYPE); 
9 FLDIEO = -FDTE.EDT_IX, Fot_FLO_S1Z); 
FLDIC1) = .FDTC.FDT-IX, FDT-FLD-POS); 
91 IF .FLDICO) + .FLDIT1) GTRU™. INPRECLOJ 
4 THEN 
9 BEGIN 
94 t 
95 } If this is not a text field, it’s an error 
99 if . TYPE NEQ DT_T THEN RETURN 9: 
98 FLDiCO) = .INPRECCO) - FLDICY ; 
199 IF «FLD1C0J LSS 0 THEN FLDILOJ = 0; 
201 FLDIEI) = -FLDI1C1) + .INPRECC1); 
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The second field may be a field or a constant 


.TOTCO, TOT_FLD_ TWO); 
DT CONS TENTS” ' 


9 = oETE EBT. CFT_CON LEN: 
= .CFTL.FDT_IX, CFT_CON_ADR] + CFTCO, BASE_J; 


ELSE 


If this is not a text field, it's an error 


IF .FDTC.FDT_IX, FOT_TYPE) NEQ DT_T THEN RETURN 0; 
FLD2CO] = .INPRECLO]~- pert; 
IF -Fub2c0J LSS 0 THEN FLD2CO] = 0; 
rupet td = -FLD2C1) + .INPRECC1); 
IF 
BEGIN 
LOCAL CMP; 
CMP = CA_LINKAGE(COMPCOJ, .TYPE, FLD1C0J, FLD2C0]); 
SELECTONE .CMP OF 
}: .TDTCO, TOT_EQL]; 
+1]:  .TDTLO,TOT“GTRI: 
-1}: .TDTCLO.TOT“LSS): 
LOTHERWISEJ: RETURN .CMP; ! Unexpected 
END 
THEN 
BEGIN 
LOCAL X; 
X = .TDTCO,TDT_GOTO); 
IF .x EQL 6 THEN RETURN 0; 
ad = TDTC.X, eT ! Goto new test item 
ELSE 
TOT = TDOTC1, BASE_); ! Advance to next test 
END; 


RETURN 0; 
END; 
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y00 e008 eRe Pant Bey eS Dg Pe eS Po age 5S 
1 B BNEQ 9 3 
18 62 : Ff 83 BBC Pi (TOT), 118 : 
D 11 00088 BRB 1 : 
FFFFFFFF © 8F ; D| BD 9$: cHPL MP, #=1 + 0306 
0c 6 0 Ff $6 BBC #2, (TOT), 118 ; 
5 03 A2 9A OOOCA 108 MOVZBL 3(fDT), X + 0313 
OC 13 OOCE BEQL 13$ + 0314 
52 624 bE 0D MOVAL (TDT)CX], TOT + 0315 
03 11 00004 BRB 12$ ; 
52 4 £0 9006 11$: ADDL2 #4, TDT : 031 
FF31 31 990 1¢8: BRW 1$ ; 03? 
0 D4 000DC 13$: CLRL RO : 0324 
04 OOODE 148: ; 
; Routine Size: 223 bytes, Routine Base: SORSRO_CODE + 0000 
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p-198e 13:10:50 EgontSzesneSsonspcurl882:1 reer 43 | 


H 
oe ale ib 


; $3 5 } GLOBAL ROUTINE SORSSRDT 
: : : $ ! are mou thece listts VECTOR(2), ! Length/address of input record 
; 26 U § 1 THEN 
+ 964 U 9 1 ROT: REF ROT TABL) ! Record definition table 
: 265 U 1 COMP: REF VECTOR[ BYTE], ' Addr of routine to do simple compares 
: 366 U Os3¢ | TDT: | REF _-TOT_TABC), i Test definition table | 
; 6 U 1 FDOT: REF FDOT_TABLJ, ' Field definition table 
; 68 U 4 = CFT REF CFT-TABLJ. i Constant definition table 
: 76 : gotrre: oF  Yecteetts ! Pointer to RDT entry (output) 
; if 3 1 lee a 
: 7 1! 
5 ie ? } : FUNCTIONAL DESCRIPTION: 
; 7 0 § 1! This routine determines whether a record should be omitted or 
: A . e? : included. If included, it returns the address of the RDT entry. 
3 79 8 45 : FORMAL PARAMETERS: 
3 Bi 0 ‘3 : As described above. 
3 8 a349 1! Note that RDT, COMP, TDT, FDOT, and CFT could be bound to the locations 
: ee Baer : in the context area that hold the addresses. 
: 286 035 1 | IMPLICIT INPUTS: 
; 287 0 3g 1! 
: 288 0354 1! NONE 
; 289 tte 1! 
Fs 90 329 1 ! IMPLICIT OUTPUTS: 
: «291 Bae 1! 
; 35 0358 1! NONE 
; 2 3822 1! 
3 94 60 1 ! ROUTINE VALUE: 
) oe 0361 1! 
3 + 9306 1! 0 indicates the record is to be omitted 
: 29 0365 1! 1 indicates the record is to be included 
$ Ms Beee : } RDTPTR is set to the address of the appropriate RDT table entry 
; 00 0 4] 1 ! SIDE EFFECTS: 
: 301 eS 
; ; 8 2 NONE 
5 69 1! 
3 70 1 lee 
; 05 71 BEGIN 
: Be 7 LOCAL 
; 2» o RDT_PTR: REF RDT_TABLI; ! Local pointer to record definitions 
; 09 75 CA_AREA_(CA); 
; 310 7 
3 11 7 peste 
; \§ L 4: ZI1F LISS(BLISS32) 
: 1 7 ZTHEN 
: 14 rs} BIND 
; DT = CACCA_RDT_ADRI: - ° ! Record definition table 
15 1 RDT CACCA_RDT_ADR]: REF RDT_TABC) 'R d definiti bl 
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1 TDT = CACCA_TDT_ADR): REF TOT_ ° ! Test definition table 
1 FDOT = CALCA_FDT_ADR]: REF FOT- ! Field defin n table 
1 CFT = CALCA CFT_ADRJ: REF CFT_ ! Constant definition table 
1 EXTERNAL ROUTINE 
ein SCOMPARE: CA_LINKAGE; 


ert COMP = SORSSCOMPARE: VECTORC BYTE); ! Addr of comparison routine 
Get a local pointer to the record definition table 
RDT_PTR = RDTCO,BASE_); 
Advance RDT_PTR until we find a test that passes 
WHILE _FAIL_("RDT"); 
Now determine whether we should omit or include this thing. 
IF .RDT_PTRCO, RDT_INCLUDE] 
THEN 
BEGIN 
Include the record, so store the address of the RDT table entry 


ViFUN —OOONOULSW—O0@ 


at at a oh oh oh I IEMI_QODOOOOOOO OOO0O000 000MM MMoMamco 


WE BBS PME EEE EF FAA NII 


9 . 
0 RDOTPTRCOJ = RDT_PTRCO, BASE_); 
1 RETURN 1; 
§ EN 
4 ELSE 
re BEGIN 
re Omit the record 
8 04 RETURN 0; 
49 Be END; 
50 4 
51 04 END; 
52 04 END; 


0004 00000 -ENTRY SORSSRDT, Save R2 : 0 35 
5 0104 cB D9 000¢ MOVL 60(CA), RDT_PTR : 0 32 
1D 1 f 1$: BBC #1, (ROT_PTRY, 2% ; 
01 a2 A 00008 MOVZBL 1(RDT_PTR), RO : 
0114 DB4O DF O000F PUSHAL @276(TA)CROJ 3 
04 AC DD 00014 PUSHL IN : 
FFOS CF Fe 17 CALLS #2, SORSSTDT : 
1 : 1C CMPL PASS, #1 ; 
14 1A OOO1F BGTRU : 
05 1 BEQL 2$ : 
52 6 ; ADDL2 #6, RDT_PTR ; 
DF BRB : 
08 8 ; eB B ” SbYL Are aoa” sadtere : O¢08 
8 8 F MOVL #1,7RO - : 0410 
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GLOBAL os alata SORSSREF ORM 
INPREC: REF VECTOREE- 
KFTPTR: ae KFT_TABLJ, 
LISS(BLISS16) 


Length/address of input record 


Z1F %B8 

ZTHEN 
RDT: REF RDT bs ot F ' Record definition table 
COMP: REF VECTORL,BYTE), ! Addr of routine to do simple compares 
TOT: REF TOT_TABLJ, ; i9st definition table 
FDOT: REF FOT_TABL), ' Field definition table 

afl CFT: REF CFT_TABLJ, ! Constant definition table 
RESULT: REF vectont BYTE) ! Address of output area 
RECLEN: REF VECTOREI, j ! Output format record length 

a ): CA_LINKAGE = 


FUNCTIONAL DESCRIPTION: 

This routine reformats a record into a result area. 
FORMAL PARAMETERS: 

As described above. 


Note that RDT, COMP, TOT, FDOT, and CFT could be bound to the locations 
in the context area that hold the addresses. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
1 indicates everything went okay. 
SIDE EFFECTS: 
NONE 
NOTES: 
The protocol for using this routine is as follows: 


Z_= SORSSRDT( INPREC, ..., RDTPTR ) 
SELECTONE .2 OF 


! 
i 
i 
' 
4 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! } -..omit the record...; 
1]: 

i 

i 

i 


BEGIN 

KFT_IX = .RDTPTRCO, RDT_KFT 0x}; 

2 ="SORSSREFORM( INPREC? KFTC.KFT_IX,BASE_J, ... ); 
it: NEQ 1 THEN ...error from comparison...; 


rato} 


eae 


8 
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; 411 476 1! COTHERWISEJ: ...error from comparison...; 

H tig 239 1! TES; : 

; 41 of8 1 !<- 

> 414 447 BEGIN 

: 415 480 LOCAL 

: $18 481 KFT_PTR: REF KFT_TABC), ' Local pointer to KFT table 

3 2 4 r ¢ FIRSTDATA: QORD; ! Offset to first data field 

: 419 484 CA_AREA_(CA); 

; 420 485 

; 421 4 § BEGIN 

3. § ¢ L re ZIF XBLISS(BLISS32) 

Te a |B he 

; 425 490 RDT = CACCA_RDT_ADRJ: REF RDT_TABCI, ! Record definition table 
> 426 0491 TDT = CACCA_TDT-ADRJ: REF TDT-TABLJ,  ! Test definition table 

> 427 49 FDT = CACCA_FDT_ADRJ: REF FOT-TABLJ, | Field definition table 
; 428 049 CFT = CALCA_CFT_ADRJ: REF CFT_TABLI; ! Constant definition table 
; 429 0494 EXTERNAL ROUTIN 

; rh Bea2 : M ctatecnstahatn: CA_LINKAGE; 

3 $36 0497 COMP = SORSSCOMPARE: VECTORC,BYTE); ! Addr of comparison routine 
; 43 0498 <F I 

; 434 0499 

; 435 0500 '¢ 

: 436 0501 ! The key/data field definition table consists of field definitions, 
: 437 Beng ! which define the fields in a record; some of these may be conditional 
3 $38 Benz data fields. As an example, the following specification file: 

: 440 0505 ! /DATA=FLD1 

3 441 8206 !  /DATA=( IF COND1 THEN CONST1 

: 44 050 4 F COND2 THEN CONST2 

3: 44 0508 : ELSE CONST3 ) 

> 444 0509 ! /DATA=FLD 

; 445 0510 ! —- /DATA=FLD4 

; 446 0511 : ; 3 

3 rr b21¢ : corresponds to the following field definition table entries: 

3; 4469 0514 ! CONTINUE FLD1 

; 450 B21? ! CONTINUE CONST1 COND COND1 

; 451 516 ! CONTINUE poets COND COND2 

; $26 0517 ! CONTINUE CONST 

3; 45 518 ! CONTINUE FLD 

3 $28 233 ; FLD4 

3; 456 521 ! Note that the ELSE part of the conditional data definition does not 
3; 457 05 § ! have the COND flag set. 

; 4458 5 !e 

3; 459 524 

: 460 525 

: 461 5 § ! Initialize the local pointer to the KFT table 

3 re 5 } Initialize the output format record length 

3 464 2 § KFT_PTR = KFTPTRCO,BASE_); 

: 465 530 RECCENCO) = 0; 

i 466 531 FIRSTDATA = 1; 

; 46 532 


<y 
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PSTD UI 
Sar 


PPV PSPSPS AISA III 
ND et td ot 2 = ot IOOOOO 
OUSWN-OC0On 


wn oC 0ean 


hororory 


} While there are more fields 
WHILE 1 DO 
BEGIN 


m 8 
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er 
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Coco Co C008 INI IN NNN SY 
DONA AEWA 9 OD NAUNE WIN 9 OD NOAUE WIN 9 OD NAU EWN OC DONA EW OOONOUNEW 


DARD SM BS BP BE BBB EE NIP AAA AAA MN I BB PPE PI 


LOCAL 
FLD: VECTORC2), ! Length/address of field or constant 

FOT_IX; ! Index into FDOT (or CFT) table 

} Advance KFT_PTR until we find a test that passes 

WHILE_FAIL_ ("KFT"); 


! Determine whether we should grab the field from the record 
or from the constant table. 


FDT_IX = .KFT_PTRCO,KFT_FDT_IDX); 


IF [KFT_PTRCOZKFT_CONSTANTJ 
THEN 


8 
FLDLO} = orth eet .1e- CFT_CON_LEN]; 
FLOC1) = .CFTC.FDT_IX, CFT_CON_ADR] + CFTCO, BASE_J; 


! Get size in bytes 
$); 
C05 


FOTC.FDT_IX, FDT_TYPE) wea DT_T THEN RETURN 0; 
p{0) = .INPRECCO) = .FLOC1); 
-FLDCOJ LSS 0 THEN FLDCO] = 0; 


0 

1 

F 

® 

! If this is not a text field, it's an error 
1 

F 

t 

1) = .FLDC1) + .INPRECC1); 


FLOC 
END; 


BEF, DAMCTWP RECORD, TP _S_TAG? GEQ MIN(TYP_K_INDEX,TYP_K_ADDRESS) 
ZERROR('The following test won''t work’) ZFI 


Copy the field to its place in the internal format record 
IF .KFT_PTRCO,KFT_BUILD) 
THEN 

BEGIN 

CHSCOPY(.FLD 03, -FLOC1], .CACCA rep 

.KFT_PTRCO,KFT_NDE_S12), RESOLT eKFT_PTRCO,KFT_NDE_POSJ]); 
IF .KFT_PTRCO,KFT_BATAI 
oe ~CACCA_PROCESS] GEQ MIN(TYP_K_INDEX,TYP_K_ADDRESS) 


PTREO,KET NDE_POS}+. FLDCOJ); 
PTRCO.KFT-NDE~POS)); 
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END; 
END; 


! If we were in_a conditional part of the record definition, 
advance KFT_PTR to the end of the conditional entries. 


WHILE .KFT_PTRCO,KFT_CONDX] DO KFT_PTR = KFT_PTRC1,BASE_]; 
See whether this record definition is continued 

IF NOT .KFT_PTRCO,KFT_CONTINUE] THEN EXITLOOP; 

Advance KFT_PTR to the next entry 

KFT_PTR = KFT_PTRC1,BASE_J; 

END; 


RECLEN[O) = sRECLENLO} - .FIRSTDATA; 
IF .CALCA_PROCESS) GEQ MIN(TYP_K_INDEX, TYP_K_ADDRESS) 
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RECLENCO] = .RECLENCO) + 6; ! Add 6 bytes for the RFA 
RETURN 1; 
END; 
END; 
07FC 00000 ENTRY SORSSREFORM, Save R2,R3,R4,R5,R6,R7,R8,R9,- ; 0419 
5E 08 ¢2 00002 SUBL2 #8, SP ; 
59 0110 CB 9SE 00005 MOVAB 272(CA), RY + 0492 
58 010C CB 9E OOO0A MOVAB 268(CA), RB : 0493 
56 08 AC 00 0000F MOVL KFTPTR, KFT_PTR > 0529 
57 10 AC DO 00013 MOVL = RECLEN, R7 : 0530 
67 B4 00017 CLRW ss (7?) : 
SA 01 AE 90019 MNEGW #1, FIRSTDATA + 0531 
1C 03 Ab 03 £1 0001C 1$ BC #3. 3(KFT PTR), 3$ + 0544 
50 05 Ad 9A 00021 MOVZBL 5S(KFT_PTRJ, RO ; 
0114 DB40 DF 00025 PUSHAL @276(TA)CROJ : 
04 AC OD 99 A PUSHL INPREC ; 
FEBS CF FB 00020 CALLS #2, SORSSTDT : 
01 D1 00 CMPL PASS, #1 ; 
01 1B 000 BLEQU 2$ : 
04 000 RET ; 
03 13 6 2$ BEQL 3$ : 
00¢ 31 A BRW 15$ ; 
50 04 Ad 9A 6 D 3$ WOVZBL 4(KFT_PTR), FDT_IX : 0549 
51 50 06 C5 00041 MULL3 #6, FOT_IX, R1 : 0553 
F 03 Ab 01 €1 0045 BBC #1, 3(KFT_PTR), 4$ ; 0990 
0 51 68 gt 4A ADDL3 (R&), R1,7RO : 055 
6E 60 A Out MOVZBL (RO). FLD ; 
04 AE 02 =A 6 C1 05 ADDL3 (RB), 2(RO), FLD+4 > 0554 
7 11 00057 BRB 9$ : 0550 
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yoe.008 tS ra te te Pea RS a aa 
50 01 D0 00116 178:  MOvL  #t, RO ; 
50 Os i 188: CERL RO ; ne 
be 11C RET : 
; Routine Size: 285 bytes, Routine Base: SORSRO_CODE + 0115 
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Run Time: OO 8 
; Elapsed Time: 0:50.1 


: Lexemes/CPU-Min: $349 
: 3 Used: 144 pages 
; Compilation Complete 
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SORSSPEC_UTIL 19-3 e 4 00:5 AX-11 Bliss-32 V4.0-74 Page 18 
yoes008 14S 338: 138 9: 33: 9% SORT32.SRCJSORSPCUTI .B352;1 . (6) 
; de8 0616 1 END 3 
; 0617 0 ELUDOM : 
; PSECT SUMMARY ; 
; Name Bytes Attributes ; 
; SORSRO_CODE 562 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
3 Library Statistics 
B=) hoo ae Se a) 9 eee Symbols -<------ Pages Processing ; 
; File Total Loaded Percent Mapped Time : 
: _$255S$DUA28:(SORT32.SRCISORLIB. L333 1 409 104 25 34 00:00.1 ; 
3 ~7$255$DUA28:CSORTS2.SRCISRTSPC.L32;1 120 42 5 12 0:00.1 : 
; | COMMAND QUALIFIERS : 
b4 PLISS/CHECE SCF EELS, INETIAL .OPTINIZE) /MOTRACE/L 151 [S81 SORSPCUTI/OR)=0BI9: SORSPCUT I MSRC$: SORSPCUTI/UPDATE=(ENHS$: SORSPCUTI ; 

Size: 562 code. ? 0 data bytes ; 


AX/{ AH-BT13A-SE - 
00 VAX/VMS V4 0 a 
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